1 CALL MAGNIFY(2):: CALL SCREEN(2):: CALL CHAR(40,"3C7EDBFF5A"):: FOR I=1 TO 11:: CALL SPRITE(#I,40,RND*9+2,16*I,1,0,RND*9+5,#16,65,16,99,240):: NEXT I
2 CALL CHAR(65,"02264DBA4D2602"):: CALL JOYST(1,X,Y):: CALL MOTION(#16,-2*Y,-A):: CALL COINC(ALL,M):: IF M THEN CALL CLEAR :: PRINT "SCORE:";A*100 ELSE A=A+.01:: CALL SOUND(1,900,0):: GOTO 2